Imports System.ComponentModel
Imports System.Web.UI

<ToolboxData("<{0}:CustomWebPart runat=server></{0}:CustomWebPart>")> Public Class CustomWebPart
    Inherits System.Web.UI.WebControls.WebParts.WebPart

    Protected Overrides Sub CreateChildControls()
        Dim txt As New System.Web.UI.WebControls.TextBox
        txt.ID = "txt1"
        Me.Controls.Add(txt)
    End Sub

overrides is

    Public Overrides ReadOnly Property Verbs() As _
                        WebControls.WebParts.WebPartVerbCollection
        Get
            Dim vrb As New WebControls.WebParts.WebPartVerb("Dummy", AddressOf Me.Dummy)
            vrb.Text = "Edit"
            Dim vrbsHold(0) As WebControls.WebParts.WebPartVerb
            vrbsHold(0) = vrb
            Dim vrbs As WebControls.WebParts.WebPartVerbCollection
            vrbs = New WebControls.WebParts.WebPartVerbCollection(vrbsHold)

            Return vrbs

        End Get
    End Property

    Sub Dummy(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.WebParts.WebPartEventArgs)

    End Sub

End Class
